﻿Public Class Imagen
    Private _IdUsuario As Integer
    Private _imagen As Image
    Private _urlImagen As String
    Public Property UrlImagen() As String
        Get
            Return _urlImagen
        End Get
        Set(ByVal value As String)
            _urlImagen = value
        End Set
    End Property
    Public Property IdUsuario() As Integer
        Get
            Return _IdUsuario
        End Get
        Set(ByVal value As Integer)
            _IdUsuario = value
        End Set
    End Property
    Public Property Imagen() As Image
        Get
            Return _imagen
        End Get
        Set(ByVal value As Image)
            If value IsNot Nothing Then If value.Width > 48 Then value = value.GetThumbnailImage(48, 48, Nothing, IntPtr.Zero)
            _imagen = value
        End Set
    End Property
End Class
